Top 10k strings from 16-48 Magazine - Issue 14 (1985)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
9 * * 3 z$="10030203STOP THE TAPE": 3 m$="Karl Brazier": 3 ;"FROGChar" 3 ,n;" ": 3 *********************** 2 z$="10030203RUN THE TAPE": 2 z$="00000202THAT'S ALL FOLKS": 2 n,o;" ": 2 STOP THE TAPE 2 RETURN TO MAIN MENU" 2 PRESS ANY KEY 2 ="q")*9930 2 ;"tutor5": 2 ;"fill"+r$ 2 ;"Press any key to begin"; 2 ;"HIT A KEY( 2 ;"CROSSWORD": 2 ;" ": 2 ((prog+168 2 "8",i;"Press a key for Help;"'': 2 "23658",o: 2 " ": 1 zine Ltd. *6\$: 1 z$="ll130201AND ": 1 z$="ll020302GREEN MEN": 1 z$="ll000402DUNGEONS": 1 z$="18050203The Ludoids": 1 z$="18010202THEN READ ON....": 1 z$="14010102EVEN OUR ADVENTURES TOO HARD?!": 1 z$="13030305CHAPTER 5": 1 z$="12070103The Long Way Home": 1 z$="11000102STILL CAN'T FIND THE WAY HOME?": 1 z$="10020203RUN THE TAPE": 1 z$="10000203LET THE TAPE RUN": 1 z$="09020203STOP THE TAPE": 1 z$="08000102UNFRIENDLY ROBOTS ?": 1 z$="06070105MACHINE CODE TUTOR": 1 z$="0310020216/48": 1 z$="00140201OF": 1 z$="00050102WHAT'S IT ALL ABOUT?": 1 z$="00020202WHAT'S IT FOR?": 1 z$="00000802MENU": 1 z$="00000802DJNZ": 1 z$="00000202WHAT DOES IT DO?": 1 z$="00000202SAVING & LOADING": 1 z$="00000202LOOPS & COUNTERS": 1 z$="00000202HOW DO I USE IT?": 1 z$="00000202FILLING IS FUN!!": 1 z$="00000202CALLING THE ROM": 1 tutor5 % 1 p$="1122334455667722744": 1 nn,n;" ": 1 m$="and start your search for": 1 m$="You must <DROP THE SPACESUIT<before you can go east": 1 m$="What do you need to see in<the dark ?": 1 m$="We hope that you enjoyed<the first chapter of our<~new look~ adventure game<THE LUDOIDS, that started<last month.<Apologies to 16Kers who are<missing instant full screen<graphics and (almost) instant<replies.": 1 m$="WEAR THE BADGE <that you took from the shuttle.": 1 m$="Try<PUSH or PUT BADGE INTO<THE BLUE SLOT": 1 m$="To operate an air lock, you<can only open one door<at a time.": 1 m$="Sorry !!< <You must draw a map as you go< (It's not impossible).": 1 m$="See clue 1 !": 1 m$="PRESS THE WRIST DETECTOR<when you have found the ludoid<jammer.": 1 m$="OPEN THE BAY DOORS<before you<PUSH THE BUTTON TO LAUNCH THE<SATELLITE.": 1 m$="In the 1st barn READ POSTER<then in the farm house <ASK THE LADY WHERE LEY FIELD IS": 1 m$="If you have discovered any<solutions, interesting short<cuts or bugs in any adventure<game then drop us a line at<16/48. We will send you `5 if<we publish your contribution.<Send us your problems and we<will do our best to save you<from death, destruction and<an over-heated Spectrum.": 1 m$="Hello again,<This month we give you a few<hints to help you find ": 1 m$="For adventure help press;": 1 m$="Don't touch anything<except the spacesuit.": 1 m$="Don't stay in any room<too long.": 1 m$="As with ~The long way home~<the first few chapters will be<relatively easy, and then will<get slowly more difficult.": 1 l=l+(k$="6")*(l<11 1 k$="ANY KEY TO PLAY (Q to quit)" 1 i,o;" ": 1 home=home+1 1 gazine Ltd. *6\$: 1 fill=32000 1 fill64 1 fill32 1 fill O 1 c=c+(k$="8")*(c<11 1 c$=" 1 agazine Ltd. *6\$: 1 a$=" THE OBJECT OF THE GAME IS TO GUIDE YOUR FROG THROUGH THE BUSY ROAD TO GET TO THE LOGS. WHEN YOU REACH THE LOGS YOU HAVE TO RIDE ON THE LOGS UNTIL YOU REACH THE LILY PADS AT THE TOP OF THE SCREEN. IF YOU GET YOUR FROG TO THE LILY PAD YOU THEN TRY TO GET SOME MORE FROGS TO THE TOP OF THE SCREEN. WHEN ALL THE LILY PADS ARE FULL YOU GO ONTO A MORE DIFFICULT LEVEL. " 1 a$=" " 1 ]MAGNETIC MAGAZINES 83:H\ 1 Z$="LLCC0202"+A$(N,1 1 Z$="10030203RUN THE TAPE": 1 Z$=" YCC0202"+A$(N,Y/2 1 XXXXX XXXXXX X X X XXXXXXXXXX XX X X XXXXXXXXXXXX X X X XXXXX XXXXX X X XXXXXXXX XXXX X X X XX XXXXXX XC 1 STACK 01014 00PRESS 01074 00INCREMENT 03018 00RUN 04092 00TEMPORARY 05018 00HALT 07013 00ERASE 07064 00INTEGER 09016 00VAL 09092 00ROTATE 11035 00SHIFT 01014 10ACCUMULATOR01031010PIE 01072 10ENTRY 01094 10SIGNED 01115 10MERGE 03064 10SAVE 07093 10INK 09012 10RET 09072 10PLOT 08113 10L 1 S$="XXXXX XXXXXX X X X XXXXXXXXXX XX X X XXXXXXXXXXXX X X X XXXXX XXXXX X X XXXXXXXX XXXX X X X XX XXXXXX X" 1 RUN THE TAPE 1 REWIND AND PLAY TO VERIFY 1 RETURN TO MAIN MENU 1 RANDOMISE 1 QUIT ROUTINE 1 PRINT WORD 1 PRINT CLUE 1 MAGNETIC MAGAZINES : 1 M$="You must<release the satellite when you<are in a parking orbit.<(The robot will tell you when.)": 1 M$="There is nothing you can do.<It's a weird planet.": 1 M$="Do they ever ?< < Try PHONING HOME.": 1 LET THE TAPE RUN 1 INPUT WORD 1 However, if you have 48K there is an option to modify the code so that it can be used at 64000." 1 HEX MNEMONICS DECIMAL 1 FROGGY 1 FROGChar 1 Code saved and verified. 1 CROSSWORD ~ 1 CHECK FOR FINISH 1 ARRAY AND NT E E R UT A LOGICALRED L U LI COMMA SBIN W E BITU E IN E RT X T E IEXTEND OPEN O O E GOR RETURN 1 A pile which grows downwards.K 1 ;a$;a$;a$: 1 ;"You Have Scored "; 1 ;"When you have put a blank tape in the recorder press any key to" 1 ;"There is a nasty frog who trys to stop you from getting to yourlily pad so avoid him at all costs." 1 ;"The nasty frog:-" 1 ;"The log :-"''' 1 ;"The high score is "; 1 ;"The frog :-"''' 1 ;"The cars:-"''''; 1 ;"THE CHARACTERS :-": 1 ;"Satellite (LWH#7)"''" Home (LWH#8)"''" The LUDOIDS (Chapter 1)"''" I don't want to know any more": 1 ;"SCORE:";sc,"HIGH:";hi' 1 ;"SATELLITE": 1 ;"Push 's' for faster instructions" 1 ;"Place a formatted cartridge in drive one and press any key.": 1 ;"PRESS ANY KEY" 1 ;"PRESS A KEY": 1 ;"Next month YAZ returns with D&G": 1 ;"FROGGY": 1 ;"CROSSWORD" 1 ;"CODE saved and verified.": 1 ;"C O M P L E T E D L E V E L :"; 1 ;"ARE YOU SURE YOU WANT TO QUIT? PRESS Y FOR YES OR N FOR NO." 1 ;"5..Left 8..Right 7..Up Q..Quit"' 1 ;"16/48D&G14": 1 ;"16/48D&G14" 1 ;"--------------------------------" 1 ;"(or REVIEWS in 16K.)" 1 ;" A NEW HIGH SCORE ": 1 ;" (right hand x value)"'m+11 1 ;" (left hand x value)."''"Then 1 ;" (inital y)"'m+3 1 ;" There is a wrap-round screen" 1 ;" ": 1 ;" ": 1 ;" ": 1 ;" ": 1 23635+256* 1 16/48D&G149 1 -n;" Y O U H A V E J U S T"'' 1 ,o;" ADVENTURE HELP FROM Baz. " 1 ,m;k$(m);" ": 1 ,enpo;" "; 1 ,enpo;" ": 1 ,,,,,,,,,,,,,,,,,,,, 1 ,,,,,,,,,,,, 1 ,,,,,,,,,, 1 ,," PLEASE ENTER YOUR NAME",,,,,,, 1 *(r$="64"): 1 * To SAVE Froggy type * 1 * GO TO 9998 [ENTER] * * or 9999 [ENTER] * 1 * Graphic notes:- * 1 * By Karl Brazier * 1 );"hours "; 1 )-(k$="7")*(l>1 1 )-(k$="5")*(C>1 1 )*(k$="7") 1 )*(k$="6")-(l>6 1 ));"Minutes."'"PRESS ANY KEY ( 1 (prog+1217 1 ''''"Press any key to start again."''''" 1 '''"The routine is 145 bytes long and is is now stored at 32000."''"It fills upwards and outwards and then downwards and outwards from the last plot position."'"Some shapes may need to use the routine twice." 1 '''"Next month we look at more ROM routines."''"Press any key to start again."''''" 1 '''"If the B register is used as thecounter there is a special shortform of-"'" DEC B"'" JR NZ,displacement" 1 '''" PRESS"'''" 1 ''"With the values in the listing on the last page the routine does this -": 1 ''"To perform a loop a specified number of times we set up one register as a counter and do something like this." 1 ''"This month we look at how to usethe same piece of code over and over again by the use of loops or subroutines." 1 ''"The one graphic command which which can make Beeb owners gloatis the fill routine. Now we can use one as well." 1 ''"The code cannot be relocated. 1 ''"Obviously other values will do the same thing in other places." 1 ''"Now look at this routine to plota block of pixels." 1 ''"JR NZ,disp means jump by this displacement if the zero flag isnot set. So if DEC C does not result in zero the program will jump back to 'loop'. When zero is reached the program moves on." 1 ''" LD C,45 ;set counter"'" loop 1 ''" LD B,45"'"loop 1 '"When a shape has been drawn on the screen you need simply to PLOT any point inside the shape and then call the fill routine with ""RANDOMIZE 1 '"We are really looking for the equivalents of FOR, NEXT loops and GOSUB in basic." 1 '"This routine is currently storedat ";m;" and as you can see from"'"the listing is 18 Bytes long." 1 '"This is the DJNZ (decrement B, jump if not zero) instruction. Using B as the counter the last program can be shortened to -" 1 '"The machine code for GOSUB and RETURN have already been used. The assembly mnemonic RET means 'return from subroutine' and RANDOMISE USR NN is interpreted as CALL NN - the Z80 equivalent of GOSUB NN." 1 '"SAVE ""fill";r$;""" 1 '"Note on highlighted line." 1 '"Loops often involve conditional jumps and the best way to show this is with an example." 1 '"If you want to experiment try POKEing different numbers into" 1 '"If you choose a save option fromthe menu on the next page you can save the machine code as" 1 '"""fill64"" must be loaded to 64000"'"and called with"'" RANDOMIZE 1 '"""fill32"" or ""fill64"""''"It is important to remember that""fill32"" must be loaded to 32000"'"and called with"'" RANDOMIZE 1 "This retrieves B and C from the stack so that they have the samecontents as before the CALL.","Decrement C to move one pixel tothe left.","Load A with the x co-ordinate ofthe left hand edge.","Check to see if x is now at lefthand edge. Zero flag will be setif A=C.","Go back and plot the next point if not yet at the left edge." 1 "Put initial y co-ordinate into B register.","Put x co-ordinate of right hand edge into C register.","The ROM routine will change the contents of BC so we PUSH BC to save the values on the stack.","This calls the subroutine in theROM which will PLOT x,y where x is in C and y is in B." 1 "Move down by one pixel and draw the next line if we are not at the bottom of the screen.","Return to BASIC." 1 "FROGChar" 1 "ENTER the word "; 1 "CROSSWORD" 1 "A pile which grows downwards.","Words which flatten.","Something one does by way of addition.","Clear up and start again.","Mary Toper will not always be confused.","Wait until interrupted.","remove a seer by arrangement.","Wholesome quantity.","A girl who knows the price of string.","Turn from trot east without a saint." 1 "A dress to change gear in.","It adds up.","It may be crusty but it sounds constant.","This is no way out for a thing in a log.","This sort of number would be changed if it were singed.","Load without loss.","The best people do this at 9999.","Sets the colour of set bits.","Going back to the sound of Scarlet's 2nd husband.","A screen conspiracy." 1 ";mem;",145" 1 "8",i;"Press keys 1-5 for help": 1 "6","100","14","140","197","205","229","34","193","13","62","100","185","32","-11","16","-15","201" 1 "3";"Get thrown out of museum"''" Maze is too difficult"''" Can't get out of airlock"''" Unfriendly Robots (i)"''" Unfriendly Robot (ii)"''" 1 "3";"Can't get back to spaceship"''" Chickens throw you out"''" Where was the meeting ?"''" Can't find co-ordinates"''" Mushroom hums"''" 1 "3";" Can't squeeze through door ?"''" Satellite will not launch."''" Cannot use the Trans-Mat ?"''" Public Phone won't work."''" End up in LWH chapter 1"''" 1 "16/48D&G14" 1 "11",i;"1"''" 1 "10";"LUDOIDS": 1 "''"Cursor"'"keys"'"move *"''" 1 "'"06 64 LD B,64H 6,100 0E 8C 1 "'" DJNZ loop"'" RET" 1 "'" DEC C ;one less to do"'" JR NZ,loop"'" RET" 1 to"'"answer a"'"clue."''" 1 to read again."; 1 to quit & load the ADVENTURE.": 1 to quit & load CROSSWORD.": 1 to page backwards."''''" 1 to page backwards."''''" 1 to move on." 1 to load LUDO."; 1 changes"'"mode"'"(across or"'"down)"''"Press"'" 1 QUITS"''" 1 PUSH BC 197 CD E5 22 CALL 22E5H 205,229,34C1 POP BC 193 0D DEC C 13 3E 64 LD A,64H 62,100 B9 CP C 185 20 F5 JR NZ, 1 LD C,8CH 14,140 C5 1 DON'T RUN OR CLEAR:GOTO 1.": 1 ""32"" or ""64"" to select"'"the address you wish to use." 1 to save to tape,"'''" 1 to save to microdrive,"'''" any other key to move on." 1 ;do this 45 times"'" 1 32,-11 10 F1 DJNZ 1 16,-15 C9 RET 201" 1 "